home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / Lattice C v5.02 d4.adf / examples / debugger / mods.cpr < prev    next >
Text File  |  1988-11-07  |  517b  |  15 lines
  1. /* Display system resident modules */
  2. execbase = import("00000004"x,4)
  3. reslist  = import(offset(execbase,300),4)
  4. 'd "Address   Pri Type Name"'
  5. do forever
  6.    mod = import(reslist,4)
  7.    if mod = "00000000"x then leave
  8.    priority = right(c2d(import(offset(mod,13),1),1),4)
  9.    type     = right(c2d(import(offset(mod,12),1),1),3)
  10.    name     = import(import(offset(mod,18),4))
  11.    name     = strip(translate(name,"0a"x,"0d"x),'t', "0a"x)
  12.    'd "$'||c2x(mod) priority type name'"'
  13.    reslist = offset(reslist,4)
  14. end
  15. exit(0)